#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec lilu-script.ros -- $0 "$@"
|#
(ql:quickload :lilu-debugger)
(ql:quickload :lilu-lem)
(ql:quickload :bordeaux-threads)


;;(lilu-roswell:init-debugging)
(defun test01 (d1 d2)
  (lilu-debugger:with-debugger (d1)
    (lilu-debugger:with-debugger(d2)
      (format *debug-io* "active debugger: ~A~%" lilu-debugger:*debugger*)
      (error "myerror"))
    (sleep 0.5)))

(lilu-debugger:enable-debugger)

(test01 :abort :abort)
(test01 :abort :lem)
(test01 :lem :abort)
(test01 :quit :abort)
(test01 :quit :lem)
(test01 :abort :quit)
(test01 :abort :none)
(test01 :none :none)
